object FNewUser: TFNewUser
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  Caption = #1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100
  ClientHeight = 241
  ClientWidth = 423
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Group2: TcxGroupBox
    Left = 0
    Top = 0
    Align = alClient
    PanelStyle.Active = True
    Style.LookAndFeel.SkinName = 'Office2007Blue'
    StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
    StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
    StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
    TabOrder = 0
    Height = 241
    Width = 423
    object lblKorp: TLabel
      Left = 5
      Top = 31
      Width = 45
      Height = 13
      Caption = #1060'.'#1048'.'#1054'.:*'
    end
    object lblConfitm: TLabel
      Left = 295
      Top = 146
      Width = 47
      Height = 13
      Caption = 'lblConfitm'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsItalic]
      ParentFont = False
    end
    object lblLogin: TLabel
      Left = 5
      Top = 7
      Width = 35
      Height = 13
      Caption = 'Login:*'
    end
    object edtRole: TcxLookupComboBox
      Left = 112
      Top = 50
      Properties.DropDownListStyle = lsFixedList
      Properties.KeyFieldNames = 'id'
      Properties.ListColumns = <
        item
          FieldName = 'uni_name'
        end
        item
          FieldName = 'name'
        end
        item
          FieldName = 'reg_name'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = dsRole
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 1
      Width = 265
    end
    object Label2: TcxLabel
      Left = 5
      Top = 52
      Caption = #1056#1086#1083#1100':'
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      Properties.LineOptions.Alignment = cxllaBottom
      Transparent = True
    end
    object Label1: TcxLabel
      Left = 5
      Top = 75
      Caption = #1058#1077#1083#1077#1092#1086#1085':'
      Properties.LineOptions.Alignment = cxllaBottom
      Transparent = True
    end
    object edtPhone: TcxTextEdit
      Left = 112
      Top = 73
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 3
      Width = 265
    end
    object edtEmail: TcxTextEdit
      Left = 112
      Top = 96
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 5
      OnKeyUp = edtEmailKeyUp
      Width = 265
    end
    object Label4: TcxLabel
      Left = 5
      Top = 98
      Caption = 'E-Mail:'
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -11
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      Properties.LineOptions.Alignment = cxllaBottom
      Transparent = True
    end
    object LabelPass: TcxLabel
      Left = 5
      Top = 121
      Caption = #1055#1072#1088#1086#1083#1100':*'
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -11
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      Properties.LineOptions.Alignment = cxllaBottom
      Transparent = True
    end
    object edtPass: TcxTextEdit
      Left = 112
      Top = 119
      Properties.EchoMode = eemPassword
      Properties.PasswordChar = '*'
      Properties.OnChange = edtPassPropertiesChange
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 7
      OnEnter = edtPassEnter
      OnKeyUp = edtPassKeyUp
      Width = 177
    end
    object edtPasswdConfirm: TcxTextEdit
      Left = 112
      Top = 142
      Properties.EchoMode = eemPassword
      Properties.PasswordChar = '*'
      Properties.OnChange = edtPasswdConfirmPropertiesChange
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 9
      OnEnter = edtPasswdConfirmEnter
      Width = 177
    end
    object LabelConfPass: TcxLabel
      Left = 5
      Top = 144
      Caption = #1055#1086#1074#1090#1086#1088#1080#1090#1077' '#1087#1072#1088#1086#1083#1100':*'
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -11
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      Properties.LineOptions.Alignment = cxllaBottom
      Transparent = True
    end
    object cxlbl3: TcxLabel
      Left = 5
      Top = 165
      Caption = #1040#1076#1088#1077#1089':'
      Properties.LineOptions.Alignment = cxllaBottom
      Transparent = True
    end
    object mmoAdress: TcxMemo
      Left = 112
      Top = 165
      Style.LookAndFeel.Kind = lfOffice11
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      StyleDisabled.LookAndFeel.Kind = lfOffice11
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.Kind = lfOffice11
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.Kind = lfOffice11
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 12
      Height = 35
      Width = 278
    end
    object btnAdres: TcxButton
      Left = 390
      Top = 165
      Width = 26
      Height = 15
      Caption = '...'
      LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 13
      OnClick = btnAdresClick
    end
    inline FrameSave1: TFrameSave
      Left = 2
      Top = 207
      Width = 419
      Height = 32
      Align = alBottom
      TabOrder = 14
      ExplicitLeft = 2
      ExplicitTop = 207
      ExplicitWidth = 419
      inherited bardxbrmngr1: TdxBarManager
        Categories.ItemsVisibles = (
          2)
        Categories.Visibles = (
          True)
        DockControlHeights = (
          0
          0
          0
          34)
        inherited btnSave: TdxBarLargeButton
          Enabled = False
          OnClick = FrameSave1btnSaveClick
        end
      end
    end
    object edtName: TcxTextEdit
      Left = 112
      Top = 27
      ParentShowHint = False
      Properties.OnChange = edtNamePropertiesChange
      ShowHint = True
      Style.LookAndFeel.Kind = lfOffice11
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      StyleDisabled.LookAndFeel.Kind = lfOffice11
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.Kind = lfOffice11
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.Kind = lfOffice11
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 0
      OnKeyUp = edtNameKeyUp
      Width = 265
    end
    object edtLogin: TcxTextEdit
      Left = 112
      Top = 3
      ParentShowHint = False
      Properties.OnChange = edtNamePropertiesChange
      ShowHint = True
      Style.LookAndFeel.Kind = lfOffice11
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      StyleDisabled.LookAndFeel.Kind = lfOffice11
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.Kind = lfOffice11
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.Kind = lfOffice11
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 15
      OnKeyUp = edtNameKeyUp
      Width = 265
    end
  end
  object QueryRole: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO clients'
      
        '  (ID, PID, NAME, id_is_client, id_supplier, id_competitor, adre' +
        'ss, phone, comment, id_del)'
      'VALUES'
      
        '  (:ID, :PID, :NAME, :id_is_client, :id_supplier, :id_competitor' +
        ', :adress, :phone, :comment, :id_del)')
    SQLDelete.Strings = (
      'DELETE FROM clients'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE clients'
      'SET'
      
        '  ID = :ID, PID = :PID, NAME = :NAME, id_is_client = :id_is_clie' +
        'nt, id_supplier = :id_supplier, id_competitor = :id_competitor, ' +
        'adress = :adress, phone = :phone, comment = :comment, id_del = :' +
        'id_del'
      'WHERE'
      '  ID = :Old_ID')
    SQLLock.Strings = (
      'SELECT * FROM clients'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    SQLRefresh.Strings = (
      
        'SELECT ID, PID, NAME, id_is_client, id_supplier, id_competitor, ' +
        'adress, phone, comment, id_del FROM clients'
      'WHERE'
      '  ID = :ID')
    Connection = DM1.db1
    SQL.Strings = (
      
        'select * from   "'#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103'"."'#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1080'" where id<>1 order by' +
        ' name')
    Left = 60
    Top = 40
  end
  object dsRole: TDataSource
    DataSet = QueryRole
    Left = 60
    Top = 96
  end
  object Query1: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO clients'
      
        '  (ID, PID, NAME, id_is_client, id_supplier, id_competitor, adre' +
        'ss, phone, comment, id_del)'
      'VALUES'
      
        '  (:ID, :PID, :NAME, :id_is_client, :id_supplier, :id_competitor' +
        ', :adress, :phone, :comment, :id_del)')
    SQLDelete.Strings = (
      'DELETE FROM clients'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE clients'
      'SET'
      
        '  ID = :ID, PID = :PID, NAME = :NAME, id_is_client = :id_is_clie' +
        'nt, id_supplier = :id_supplier, id_competitor = :id_competitor, ' +
        'adress = :adress, phone = :phone, comment = :comment, id_del = :' +
        'id_del'
      'WHERE'
      '  ID = :Old_ID')
    SQLLock.Strings = (
      'SELECT * FROM clients'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    SQLRefresh.Strings = (
      
        'SELECT ID, PID, NAME, id_is_client, id_supplier, id_competitor, ' +
        'adress, phone, comment, id_del FROM clients'
      'WHERE'
      '  ID = :ID')
    Connection = DM1.db1
    SQL.Strings = (
      
        'select * from   "'#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103'"."'#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1080'" where id<>1 order by' +
        ' name')
    Left = 364
    Top = 72
  end
end
